Rstudio terningskast

Hej

Jeg sidder fast i følgende opgave:

Henrik har ud fra ovenstående linjer lavet funktionen hvad_er_vist, der afgør hvilke for-
skellige øjne der er i et terningekast med 6 terninger.
1: hvad_er_vist <- function(){
2: slag <- terning(6)
3: cat("Slaget er:", slag,"\n")
4: vist <- rep(FALSE,6)
5: for (k in 1:6){ if (sum(slag==k)>=1) vist[k] <- TRUE }
6: vist
7: }
(Det er en god idé at starte med at indtaste hvad_er_vist og terning i R og foretage nogle
kørsler, så man kan se hvad der foregår.)
Modificér funktionen hvad_er_vist så den får en parameter n, som skal angive antallet af
terninger Henrik kaster med. Denne parameter skal have standardværdien 6. (F.eks. skal
hvad_er_vist(13) angive de forskellige øjne, der vises i et terningekast med 13 terninger,
mens hvad_er_vist() skal angive de forskellige øjne, der vises i et terningekast med 6
terninger.)

og er kommet så langt her, men stirrer mig blindt på hvorfor det ikke virker

terning <- function(n=6,k=6){floor(runif(n,1,7))
hvad_er_vist <- function(terning)
slag <- terning(6)
cat("Slaget er:", slag,"\n")
vist <- rep(FALSE,6)
for (k in 1:6){ if (sum(slag==k)>=1) vist[k] <- TRUE 
}

er der nogle der kan hjælpe?

Mvh