IT Lab Session 10

1)

plot3d(T)

 

plot3d(T, col=rainbow(1000))

 

plot3d(T, col=rainbow(1000), type='s')

 

2)

 x<-rnorm(100,50,15)
 y<-rnorm(100,70,20)
 Colours<-c("B","G","R","Y","P")
 z<-sample(Colours,100,replace=TRUE)
 T<-cbind(x,y,z)

qplot(x,y)

 

qplot(x,y,alpha=I(1/20))

qplot(x,y,colour=z)

qplot(x,y,geom=c("point","smooth"))

IT Lab Session 9

VIDI - A Data Visualization Tool

Data visualization works so well because the human brain is extremely well-equipped to process visual information. We can capture patterns and essential themes in huge data sets very, very quickly through visual means.

Unfortunately, the tools to create these visual representations are usually too expensive and difficult for smaller news organizations and everyday citizens to use, creating a gap for the future of community journalism. With the generous support of the Knight Foundation, we created VIDI, a suite of powerful intuitive Drupal data-visualization modules for anyone to use on any standard set of data ranging from government databases to demographics and statistics. 

VIDI gives you easy-to-use tools to build and embed colorful and dynamic maps for your presentations or your blogs. It includes powerful and intuitive tools for expressing data through maps.

Steps to use VIDI data visualization tools are as follows

Ø  Find your story

Ø  Pursue an appropriate dataset for your story (blog, Twitter, Facebook or any website)

Ø  Find an adequate data visualization type to support your story

Ø  Prepare and if necessary fix your datasets, if not sure check datasets formats

Ø  Explore color scheme suggestions

Ø  Register or log-in to be able to upload and map your datasets

Ø  Copy embed link to embed your data visualizations into your content

Ø  Come back any time to use your visualizations saved on My VIDI page

Different types of data visualization formats VIDI supports able to generate from given data are as follows

v  Motion Chart

v  Timeline map

v  Timeline map with path

v  Annotated timeline

v  Tagmap

v  Intesity map

v  Geo map

v  Timeline map

v  Timeline map with path

v  Pie chart

v  Gauge chart

v  Bar chart

v  Area chart

v  Column chart

v  Line chart

v  Scatter chart

Some sample charts that can be created in VIDI are as follows

Conclusion:

       VIDI provides all the basic charts required with a very easy user interface. Even a beginner can easily use it and can create interactive charts required for him. But higher level customizations are not available at this stage. VIDI can work on this and can improve on it. And right now it accepts data in three file formats only. It can extend its allowable file formats and can accept data in the web page only as another option to be very much user friendly to user. 

IT Lab Session 8

Analyze the data set "Produc" in "plm" package

Pooled Affect Model

pool<-plm(log(pcap)~log(hwy) + log(water) + log(util) + log(pc) + log(gsp) + log(emp) + log(unemp), data=Produc, model=("pooling"), index = c("state", "year"))

Fixed Affect Model

fixed<-plm(log(pcap)~log(hwy) + log(water) + log(util) + log(pc) + log(gsp) + log(emp) + log(unemp), data=Produc, model=("within"), index = c("state", "year"))

Random Affect Model

random<-plm(log(pcap)~log(hwy) + log(water) + log(util) + log(pc) + log(gsp) + log(emp) + log(unemp), data=Produc, model=("random"), index = c("state", "year")) 

pFtest

 We cannot reject null hypothesis, so fixed is better

plmtest

We cannot reject null hypothesis, so pool is better


phtest

 
We should null hypothesis, so fixed is better

So by consolidating all the results, fixed affect model is better for "Produc" data

IT Lab Session 6

1)  Find the log of returns data and volatility

2) Create ACF plot of log returns and do Augmented Dickey-Fuller test

IT Lab Session5

Q1) Download data set for large NSE data (atleast 6 months) and generate returns having selected the 10th datapoint as start and 95th data point as end

Ans)

Q2) Predict the data for 701 to 850 rows for the data given
Ans) Considered "age" and "ed" attributes as categories and worked accordingly


> logit<-read.csv(file.choose(), header=T)
> logit.eg<-logit[1:700,]
> logit.eg$age <- factor(logit.eg$age)
> logit.eg$ed <- factor(logit.eg$ed)
> logit.est <- glm(default~age+ed+employ+address+income+
+ debtinc+creddebt+othdebt, data = logit.eg ,
+ family = "binomial" )
> logit.eg2<-logit[701:850,]
> logit.eg2$age <- factor(logit.eg2$age)
> logit.eg2$ed <- factor(logit.eg2$ed)
> logit.eg2$prob <- predict(logit.est, newdata = logit.eg2, type = "response")
> logit.eg2

IT Lab Session 3

Q1A)

Since the shape of the residual curve is parabola and not random, residual regression does not follow linearity

Q1B)

Since the shape of the residual curve is random, residual regression follow linearity

Q2)

 P value is 0,687. So we do not have sufficient evidance to reject that the comfort levels of the three chairs are similar

IT Lab Session 2

1) Create matrices, select some columns and use cbind to create new matrix

2) Multiply two matrices

3) Generate regression data from 01 Dec 2012 to 31 De 2012 NSE data

4) Generate Normal distribution data and plot it

 plot(sort(x), dnorm(sort(x),5,2))

IT Lab Session 1

Question 0) Draw a line

Answer) 

             x<-c(1,2,3)

             plot(x,type="l")

Question 1) Draw a histogram

Answer)

             x<-c(1,2,3)

             plot(x,type='h')

Question 2) Plot both line and points with graph and axes names

Answer)

             plot(zcoll, type="b", main="NSE", xlab="Time", ylab="Value")

Question 3) Plot a scatter graph

Answer)

              plot(zcoll1,zcoll,main="NSE",xlab="High",ylab="Low")

Question 4) Get maximum from "Max" column and minimum from "Min" column

Answer)