Jayasankar, J

Varghese, Eldho

CMFRI Digital Repository

                  help(solve) ?solve help("[[") help.start() getwd() [1] " "C:/Users/HP/Documents" setwd("H:/CMFRI/Lectures delivered/Winter school_Dr. Zacharia_2018")    objects()rm()rm(x, y) Year<-c(1991,1992,1993,1994,1995,1996,1997,1998,1999,2000)   fish<-matrix(c("sardine","mackerel","tuna","shark"),nrow=2) fish catch <- c(20,30,45,15,26,30,23,29,30) CPUE <- c(1.2,1.3,1.4,1.1,1.4,1.5,1.3,1.2,1.1) column.names <- c("Sardine","Mackerel","Anchovy") row.names <- c("Jan","Feb","Mar") matrix.names <- c("2001","2002") result <- array(c(catch, CPUE),dim = c(3,3,2),dimnames = list(row.names,column.names,   matrix.names)) print(result)     Fish_type<-c("Pelagic", "Demersal", "Mollusc", "Demersal", "Pelagic", "Demersal") Fish_cat<-as.factor(Fish_type) levels(Fish_cat) Landings<-c(25,29,37,50) Type_fish<-c("sardine","mackerel","shrimp","prawn") FishData<-data.frame(Type_fish, Landings) FishData    data.frame()Year<-c(1991,1992,1993,1994,1995,1996,1997,1998,1999,2000) fish<-matrix(c("sardine","mackerel","tuna","shark"),nrow=2) Landings<-c(25,29,37,50) Type_fish<-c("sardine","mackerel","shrimp","prawn") FishData<-data.frame(Type_fish, Landings) Mylist=list(Year, fish, FishData) Mylist    Landings<-c(4434, 2194, 2737, 1263, 2068, 1385, 1319, 1352, 971, 819) mean(Landings) var(Landings) c() mean() var() c()mean(Landings) var(Landings)mean() var()help(functionname)help(aov)aov()    mean(x) median(x) var(x): sd(x): sort(x): rank(x) rank(-x) t.test(x,mu=n, alternative = “two.sided”) t.test(x,mu=n, alternative = “greater”) t.test(x,mu=n, alternative = “less”) t.test(x,y,mu=0, var.equal = TRUE, alternative = “two.sided”) t.test(x,y,mu=0, alternative = “two.sided”, paired = TRUE) cor(x,y) cor.test(x,y) lm(y~x, data = d) coefficients(a confint(a)   library()library(boot)install.packages()update.packages()search().   Year<-c(2000,2001,2002,2003,2004,2005,2006) Fish_Landings<-c(50,60,47,85,29,58,24) fishData=data.frame(Year,Fish_Landings) fishData data.frame()names(FishData) scan()y<-scan()   scan()scan()Year,Month,Catch 2000,jan,52 2000,jul,40 2001,jan,53 2001,jul,54 2002,jan,42 2002,jul,48 2003,jan,35 2003,jul,39 2004,jan,60 2004,jul,59 2005,jan,48 2005,jul,49 read.table()mydata=read.table("Landings.txt",header=TRUE,sep=",") mydata    read.table()read.table()read.table()read.csv()read.csv2() read.table() read.csv()   library(xlsx) read.xlsx("myfile.xlsx", sheetName = "Sheet1") read.table()webdata=read.table("http://cmfri.org.in/datasets/ effort.dat") Loading R commander:  install.packages(Rcmdr) library(Rcmdr)           Landings=read.csv("LandingsData.csv",header=TRUE,sep=",")    plot(Landings$Year,Landings$Crabs,main="Crabcatch[1997-2016]",xlab="year",ylab= "catch(kg)" )  hist(Landings$ IndianMackerel, main="Histogram for Indian Mackerel catch[1997-2016]", xlab="catch", col="red", breaks=5)    boxplot(Landings[,-1], main=" Catch of various species", xlab="Species", ylab="Catch(kg)")    plot(Landings$ IndianMackerel, type = "o",col = "cyan", xlab = "Year", ylab = "Catch (Kg)", main = "Time series of Catch", ylim=c(500, 60000)) # type ‘o’ means both point and lines lines(Landings$Crabs, type = "o", col = "blue") lines(Landings$BombayDuck, type = "o", col = "green") lines(Landings$Ribbon_Fishes, type = "o", col = "yellow") lines(Landings$Sharks, type = "o", col = "grey")    pairs(~BombayDuck+Crabs+IndianMackerel,data=Landings, main=" Scatterplot Matrix") len<-c(90, 128, 112, 68, 56, 58, 111, 111, 115, 65) wt<-c(9.3, 32.5, 19, 4.4, 2.1, 2.8, 16.1, 17.9, 22.7, 3.4) logL<-log(len) logW<-log(wt) lm1<-lm(logW~logL) summary(lm1) library(FSA) fitPlot(lm1,xlab="log Total Length (mm)",ylab="log Weight (g)",main="")     β ⇒ β  ⇒   

Introduction to R and R Studio

http://eprints.cmfri.org.in/13591/1/14%20Introduction%20to%20R%20and%20R%20Studio_Winter%20School%20on%20Climate%20change%20impacts_2018.pdf

Introduction to R and R Studio

Abstract

Similar works

Full text

Available Versions

CMFRI Digital Repository