documentclass[a4paper,12pt,fleqn]{article}  %extreport

usepackage[top=3cm,bottom=1cm,left=2cm,right=2cm]{geometry}

usepackage{fancyhdr,color,xcolor,dsfont}

usepackage{listings,ulem,booktabs,graphics,lastpage}

usepackage{bm,amsmath,amssymb,amsthm,latexsym}

usepackage{graphicx,fouriernc,hyperref}  %fouriernc
pagestyle{fancy}

fancyhf{}

lhead{Macro theory IV:HW1}

chea

/*Gauss*/

m=ones(200000,1);

ret=0;
starttime=date;

for i (1,20,1);

ret=ret+sumc(sumr(m));

endfor;

endtime=date;

print etstr( ethsec(starttime,endtime) );

/*O

/* IMPORT DATA CSV*/

PROC IMPORT DATAFILE=”C:DATASTATADASE17HOSP17.CSV”

 OUT=MYDATA DBMS=CSV REPLACE;

   GETNAMES=YES;

RUN;
/*OUTPUT DATA CSV*/

PROC EXPORT DATA=NEW

OUTFILE=’c:DataNEW.csv’;
/*CREATE NEW TABLE ORDER BY*/

PROC S

#stata

cd “c:data”

reserve

keep id itm* amt*

outsheet using “c:datainc95t.txt”,comma

restore



reserve

drop itm* amt*

outsheet using “c:datainc95o.txt”,co

/* Stata */
clear

set obs 1000

gen x=invnorm(uniform())

gen e=invnorm(uniform())

gen y=0.5+0.4*x+e

replace y=0 if y<=0

replace y=1 if y>0



capture program drop mypro