CD spectrum

Introduction

This document analyzes the CD

library(ggbiplot)

## Loading required package: ggplot2

## Loading required package: plyr

## Loading required package: scales

## Loading required package: grid

s<-read.csv("cd_pramita.csv",header=TRUE)
nm<-s$Wavelength.nm.
plot(nm,s$GPA1,type="l")

q<-s[-1,]
pc<-prcomp(q,center=T,scale=T)
summary(pc)

## Importance of components:
##                           PC1    PC2    PC3     PC4     PC5     PC6
## Standard deviation     2.2591 1.3887 1.0866 0.77419 0.71002 0.60050
## Proportion of Variance 0.5103 0.1928 0.1181 0.05994 0.05041 0.03606
## Cumulative Proportion  0.5103 0.7032 0.8213 0.88120 0.93161 0.96767
##                            PC7    PC8     PC9    PC10
## Standard deviation     0.43329 0.2701 0.20088 0.14897
## Proportion of Variance 0.01877 0.0073 0.00404 0.00222
## Cumulative Proportion  0.98645 0.9938 0.99778 1.00000

g <- ggbiplot(pc,obs.scale = 1,var.scale = 1,groups = colnames(q),ellipse = TRUE,circle = TRUE,ellipse.prob = 0.68)
g <- g + scale_color_discrete(name = '')
g <- g + theme(legend.direction = 'horizontal',legend.position = 'top')
print(g)

```