sink()

1
2
3
4
5
6
7
8
setwd("/Users/zerohertz/RData")
air=airquality
str(air)
attach(air)
sink('output.txt') #콘솔창 결과를 외부 파일로 저장
mean(Temp)
sd(Temp)
sink() #끝났다는 표시
Read more »

벤처기업(Day 2)

Venture?

벤처기업의 학술적인 명확한 개념정의 X

  • 미국 - 위험성이 크나 성공할 경우 높은 기대수익이 예상되는 신기술 또는 아이디어를 독립기반 위에 영위하는 신생기업으로 규정
  • 일본 - 중소기업으로서 R&D 투자비율이 총 매출액의 3% 이상인 기업, 창업 후 5년 미만인 기업
  • OECD - R&D 집중도가 높은 기업 / 기술혁신이나 기술적 우월성이 성공의 주요 요인인 기업

R&D

Research & Development

벤처유형

  • 벤처투자 기업
  • 연구개발 기업
  • 기술평가 보증기업 및 기술평가 대출기업
  • 예비벤처 기업
Read more »

시계열 Data

1
2
3
4
5
6
7
> uspop
Time Series:
Start = 1790
End = 1970
Frequency = 0.1
[1] 3.93 5.31 7.24 9.64 12.90 17.10 23.20 31.40 39.80 50.20 62.90 76.00 92.00 105.70 122.80 131.70 151.30 179.30
[19] 203.20
Read more »

변수 지우기

1
2
3
> rm(list=ls())
> ls()
character(0)
  • ls()는 지금까지 생성한 변수들의 목록을 문자열들로 반환하는 함수(list의 약자)
Read more »

R

1
2
3
4
5
6
7
8
9
10
11
12
13
#전산실습 Day 1
speed=c(4,7,8,9,10,11,12,13,13,14);speed #Multi input #Ctrl+R is compiling of only one line
dist=c(2,4,16,10,18,17,24,34,26,26);dist #대소문자 구분
mean(speed)
mean(dist) #결측값이 있는 data에서 수식이용시 결과는 결측값
#함수이용시 결과는 결측값 제외하고 계산
sd(speed) #Standard variation
#수치자료 : 대표값(mean),산포도(sd),비대칭도-왜도(skew)
#평균-중심위치
min(speed);max(speed) #Find Error
summary(speed)
plot(speed,dist)
cor(speed,dist) #상관계수(산점도 확인 후)-직선적인 정도 
Read more »