Ring

z <-1:100
y <- seq(1,5)
y <- c(1,5)
(1:5)^3
#################################
plot(z,sin(z),type="l") # z yra x koordinatė, o sin(z)- y koordinatė;
# “l” nurodo, kad taškus reikia sujungti linijomis
lines(z,(sin(z))^3,lty=2) # Funkcija “lines” papildo pirmą grafiką
# linijomis; lty=2 nurodo linijos tipą
lines(z,(sin(z))^10,lty=3)
legend(0,-0.5,c("1","3","10"),lty=c(1,2,3)) # Legendos viršutinis kairysis kampas bus taške (0;0,5)
###################################
methods(mean)
mean #funkcijos mean tekstas
mean(1:5)
mean.mano <- function(x){sum(x)/length(x)}
mean.mano(1:5)
mean(c(1,2,3,4,50),trim=0.2) #atmetimas 20% reiksmiu
#################################
search() #rodo naudojamus paketus
install.packages(car)
install.packages(c("gregmisc",”xgobi”))
library(car) #naujo paketo prijungimas
library()#visu paketu sarasas
library(help=car) #car objektu sarasas
data() #sarasas rinkiniu, prijungtu prie dabartinio paieskos kelio
data(package=”MASS”) #instaliuoto paketo "MASS" duomenu rinkiniai
data(package = .packages(all.available = TRUE))#visu instaliuotu paketu
data(Davis) #duomeniniu objektu apziura
summary(Davis) #bendroji info
str(Davis) #bendroji info
attach(Davis)#Davis stulpeliu padarymas pasiekiamais
mean(height)
help(image)|
example(image)
############################ANALIZAI
height
sex
sex=="M"
height[sex=="M"]
mean(height[sex=="M"])
summary(height[sex=="F"])
tapply(height,sex,mean) #equivalent
boxplot(height~sex) #grafinis pavaizdavimas/duomenu atsekimas
detach(Davis)
############################