Difference between revisions of "Sandbox2"
From Testiwiki
(→Tableinput) |
(→Kasvukäyrä) |
||
| Line 1: | Line 1: | ||
[[Category:Sandbox]] | [[Category:Sandbox]] | ||
| − | === | + | === Kasvukäyrä === |
| − | <rcode name=" | + | <rcode name="kasvukäyrä" embed=1 graphics=1 variables=" |
| − | name: | + | name:sp|type:text| |
| + | name:nimi|type:text| | ||
| + | name:dat|type:default | ||
"> | "> | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
| − | oprint( | + | d <- as.data.frame(matrix(dat, ncol = 3)) # Sarakkeiden pitää olla päivämäärä, pituus, paino. |
| + | # Ensimmäisellä rivillä pitää olla syntymäpäivä, äidin pituus ja isän pituus. | ||
| + | colnames(d) <- c("Pvm", "Pituus", "Paino") | ||
| + | |||
| + | cat("Etunimi", nimi, "\n") | ||
| + | |||
| + | cat("Sukupuoli", sp, "\n") | ||
| + | oprint(d) | ||
| + | temp <- as.POSIXct(d$Pvm) | ||
| + | |||
</rcode> | </rcode> | ||
