Q2. (75 points, each subpart has 15 points) Compute following in R Data frame, l
ID: 3042678 • Letter: Q
Question
Q2.
(75 points, each subpart has 15 points)
Compute following in R
Data frame, list, factor, import and export (.csv & text)
i. Create two integer vectors X1 and X2. These vector lengths are 10.Say X1 represent “length of rectangle” and X2 represent “width of rectangle”.
ii. Create “Data Fame”, called ‘rect’, of these two vectors (X1 and X2)and find dimension of ‘rect’ data frame.(Hint:Use “data.frame()” function of R).
iii. Calculate following
a)
Area of rectangle and save it in “area”.
b)
Perimeter of rectangle and save it in “perimeter”.
c)
square root of “Area” and save it in “sqrtArea”.
d)
log value of “perimeter” and save it in “logPerimeter”.
e)
length of area, perimeter, sqrtArea, and log Perimeter.
iv. Append parameters: area, perimeter, sqrtArea, and logPerimeter in “rect” dataframe as columns.(Hint:Use “transform()” function of R).
v. Print following elements of transformed ‘rect’ data frame
a)Dimension of ‘rect’.
b)Last three columns of‘rect’.
c)4th row of ‘rect’.
d)3rd column of ‘rect’.
e)A data point value of 8th row and 5th column of ‘rect’.
Explanation / Answer
> x1=seq(10,55,by=5) #length of rectangle
> length(x1)
[1] 10
> x2=seq(3,30,by=3) # width of rectangle
> length(x2)
[1] 10
> rect=data.frame(x1,x2)
> rect
x1 x2
1 10 3
2 15 6
3 20 9
4 25 12
5 30 15
6 35 18
7 40 21
8 45 24
9 50 27
10 55 30
> area=x1*x2
> area
[1] 30 90 180 300 450 630 840 1080 1350 1650
> perimeter=2*x1+2*x2
> perimeter
[1] 26 42 58 74 90 106 122 138 154 170
> sqrtArea=sqrt(area)
> logPerimeter=log(perimeter)
> l=c(length(area),length(perimeter),length(sqrtArea),length(logPerimeter))
> l
[1] 10 10 10 10
> rect=data.frame(x1,x2,area,perimeter,sqrtArea,logPerimeter) # Here we append remaining columns to rect
a)
> dim(rect)
[1] 10 6
b)
> rect[,c("perimeter","sqrtArea","logPerimeter")]
perimeter sqrtArea logPerimeter
1 26 5.477226 3.258097
2 42 9.486833 3.737670
3 58 13.416408 4.060443
4 74 17.320508 4.304065
5 90 21.213203 4.499810
6 106 25.099801 4.663439
7 122 28.982753 4.804021
8 138 32.863353 4.927254
9 154 36.742346 5.036953
10 170 40.620192 5.135798
c)
> rect[4,]
x1 x2 area perimeter sqrtArea logPerimeter
4 25 12 300 74 17.32051 4.304065
d)
> rect[,"area"]
[1] 30 90 180 300 450 630 840 1080 1350 1650
e)
> rect[8,5]
[1] 32.86335
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.